home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
The X-Philes (2nd Revision)
/
The X-Philes Number 1 (1995).iso
/
xphiles
/
hp48hor1
/
memgraph.src
< prev
next >
Wrap
Text File
|
1991-05-29
|
1KB
|
24 lines
%%HP: T(3)A(D)F(.);
@ MEMGRAPH
@ by Bill Menees
@ vv----- Change this to be how many K of RAM you have total (merged).
\<< 32 MEM \-> MAXMEM M
\<< PICT RCL DUP SIZE RCLF \-> PIC HORZ VERT FLAGS
\<< -49 CF -50 CF ERASE # 83h # 40h PDIM { # 0h # 0h } PVIEW { # 0h # 20h }
{ # 82h # 2Ah } BOX PICT { # 20h # 0h } "MEMORY USED" 3 \->GROB REPL
PICT { # 0h # 2Ch } "0k" 2 \->GROB REPL PICT MAXMEM \->STR k + 2
\->GROB DUP SIZE DROP # 85h SWAP - # 2Ch 2 \->LIST SWAP REPL M NEG
MAXMEM 1024 * + MAXMEM 1024 * / 131 * IP \-> N
\<< PICT N R\->B # 9h BLANK NEG { # 1h # 21h } SWAP REPL
\>> PICT MAXMEM 1024 * M - " BYTES USED." + 1 \->GROB DUP SIZE DROP
# 83h SWAP - 2 / # Eh 2 \->LIST SWAP REPL PICT M " BYTES FREE." + 1
\->GROB DUP SIZE DROP # 83h SWAP - 2 / # 15h 2 \->LIST SWAP REPL PICT
{ # 24h # 38h }
GROB 56 7 C1807C17007C9F22C882A80882A0D58882AC0802A05480FCBA0802A7D58080A90802A0228040980882A0C1C13C07007C90
REPL { } PICT { # 20h # 2Fh } "PERCENT FREE: " M MAXMEM 1024 * / 100
* IP \->STR + 37 CHR + 1 \->GROB REPL PVIEW HORZ VERT PDIM PIC PICT STO
FLAGS STOF
\>>
\>>
\>>